getuser 1;handle=result;cls='\f1';getuser 15;access=result;sysop=0;if access=23 then sysop=1;time=time();date=date();pa="###PANIC"
day='0';if ~exists(yupdir'NEWS') then do;call open(news,yupdir'NEWS','W'); writeln(news,' ');writeln(news,' \z6\c3 -=< The Yuppie Times >=- \z0 ');writeln(news,' \c2 For 'date' ')
writeln(news,' \c3');call close(news);end;if ~exists(yupdir'STATS') then do;call open(dc,yupdir'STATS','W');call writeln(dc,date)
call writeln(dc,day);call writeln(dc,howm);call close(dc);end;if exists(Yupdir'STATS') then do;call open(dc,yupdir'STATS','R');dt=readln(dc)
day=readln(dc);howm=readln(dc);if howm=' '|howm='' then howm='1';call close(dc);if date ~=dt then do;day=day+1;if exists(Yupdir'NEWS') then do;call open(news,yupdir'NEWS','A')
writeln(news,' ');writeln(news,' \z6\c3 -=< The Yuppie Times >=- \z0 ');writeln(news,' \c2 For 'date' ')
ran7="Republican";ran8="Millionare Tycoon";ran9="Chairman of Macy's Department Store";ran10="President of Macy's Department Store";ran11="Founder of Macy's Department Store"
deadf=readln(File);killer=readln(File);kills=readln(File);bmoney=readln(File);expert=readln(file);end;call close(File);if expert='';then expert='0';if ~exists(yupdir||handle'.dat') then do;call open(play,yupdir'Players','A');call writeln(play,handle);call writeln(play,points);call close play;end
if lastpl ~=date then do;tr "\b1";tr "\c4Running Maintenance....\q1\w4";tr "\c7 You have \c125\c7 fresh turns!\q1";turnsleft=25;rannum=RANDOM(10,50,Time('s'));hitpoints=hitpoints+rannum;if hitpoints>maxpoints then hitpoints=maxpoints
tr '\c7 You have gained \c1'rannum'\c7 hitpoints!\q1';money=money+2000;tr "\c7 You have earned \c1$2000\c7!\q1";tr "\c2 You are all set up and ready to go!\q1"
canfight=4;if deadf=1 then do;tr "\n1\c2 "KILLER" \c1Beat YOU on the \c2HIGHWAY\c1!"
end;deadf=0;call delay(75) ;qu "\n1\q1Press \c2RETURN\q1 when finished: "
if result=PA then signal DIE;end;call CHECKRANK;signal TITLE
CHECKRANK:
if kills>=17 then rank=ran2;if kills>=25 then rank=ran3;if kills>=35 then rank=ran4
if kills>=45 then rank=ran5;if kills>=60 then rank=ran6;if kills>=75 then rank=ran7
if kills>=100 then rank=ran8;if kills>=130 then rank=ran9;if kills>=160 then rank=ran10
if kills>=215 then rank=ran11;if kills>=300 then rank=ran12
if rank=ran2 then maxpoints=40;if rank=ran3 then maxpoints=50;if rank=ran4 then maxpoints=60
if rank=ran5 then maxpoints=75;if rank=ran6 then maxpoints=90
if rank=ran7 then maxpoints=100;if rank=ran8 then maxpoints=120;if rank=ran9 then maxpoints=140
if rank=ran10 then maxpoints=170;if rank=ran11 then maxpoints=200;if rank=ran12 then maxpoints=250;return
TITLE:
call players;tr '\q1';tr "\n3"
tr '\c2' center("LONG AGO, IN A SHOPPING MALL FAR FAR AWAY...",78)
if result=PA then signal BYE;signal BEGINNINGPROMPTS
BEGINNINGPROMPTS:
ss "\n2\c4Need Instructions \c3(\c5y\c4/\c2N\c4)? \q1";getchar;if nocarrier() then signal bye
info=(result);if info=PA then signal BYE;if info="Y" then do;tr CLS;sendfile yupdir'instructions'
end;ss "\n2\c4Read The News \c3(\c5y\c4/\c2N\c4)? \q1";getchar;if nocarrier() then signal bye;newz=result;if newz=PA then signal BYE;if newz="Y" then do
currentmem=storage();if currentmem<lowmem then do;tr CLS'\n1';tr CENTER("\c2Sorry! Out of memory! Saving and exiting...",78)
call delay(75);signal BYE;end;if expert=0 then do;ss "\n1\c5[\c1"turnsleft"\c5]\cf Your Choice Sir?\c5> ";getchar;if nocarrier() then signal bye;choice=result;end
if Choice=pa then signal BYE;if Choice=""|Choice=" "|Choice=" "|Choice=" "|Choice=" "|Choice=" " then turnsleft=turnsleft+1
if Choice="A" then signal ARENA;if Choice="H" then signal HIGHWAY;if choice="B" then signal Command;if Choice="R" then signal REST;if Choice="T" then signal TOP;if Choice="Y" then signal YOURSTATS;if Choice="G" then signal TRIP
if Choice="L" then do;signal VEGAS;;end;if Choice="V" then signal BUYORSELLA
if Choice="W" then signal BUYORSELLW;if Choice="S" then signal BANK
if Choice="P" then do;call players;call PLAYERList;signal menu1;end;if choice="X" then do;if expert=1 then do expert=0;tr '\n1\c1Novice Mode Re-Engaged';delay(50);signal menu2;end;if expert=0 then do expert=1;tr '\n1\c1Expert Mode Engaged!\q1';signal menu1;end;signal menu1;end
if Choice="Q" then signal QUIT;if Choice="?" then signal MENU1;else do;signal MENU1;end;signal MENU1
MENU1:
if hitpoints>maxpoints then hitpoints=maxpoints;if hitpoints<0 then hitpoints=0;if money<0 then money=0
if turnsleft<=0 then do;tr CLS;tr center("\n1 \z6\c3 You must like this game! \z0",78)
tr "\q1";tr center("\c2But anyway, you have played all your \c125\c2 turns out.",78)
tr center("\c2Try calling back tomarrow and playing again!\q1",78)
qu "\n1\c1Press \c2RETURN\c1 when finished:\q1 ";signal OUTTAHERE;end
if expert=1 then do;ss '\n1\c5(\c1A\cf,\c1H\cf,\c1B\cf,\c1R\cf,\c1T\cf,\c1Y\cf,\c1G\cf,\c1V\cf,\c1L\cf,\c1W\cf,\c1S\cf,\c1P\cf,\c1X\cf,\c1Q\cf \c1?=Menu\c5) \c2[\c6Turnsleft\c4(\c1'turnsleft'\c4)\c2] :';getchar;if nocarrier() then signal bye;choice=result;end
if expert=1 & choice='?' then signal menu2;if expert=1 then signal maingame;signal menu2
tr "\n2\c4You are fighting a \c1"wh"\c4.";ss "\n1\c3Fight Commands: \c6[\cfA\c6] \c1Attack, \c6[\cfR\c6] \c1Retreat, \c6[\cfH\c6]\c1 Hit his vehicle\c6>\c1 ";getchar;if nocarrier() then signal bye
opt=result;if opt=PA then signal BYE;if opt="A" then signal ATT;if opt="R" then signal RET;if opt="H" then signal RAMH
if opt="Q" then signal RET;signal FIGHTSC
ATT:
call STA;rannum=RANDOM(1,2,Time('s')) ;if rannum=1 then do;tr "\n1\c2You hit him for \c1"hithim" \c2hitpoints!"
hitoppo=hitoppo-hithim;if hitoppo<=0 then signal WONFIT;ransum=RANDOM(1,4,Time('s'))
if ransum=1|ransum=2|ransum=3 then do;tr "\n2\c5He hit you for \c1"hityou" \c5hitpoints!"
hitpoints=hitpoints-hityou;if hitpoints<=0 then signal LOSFIT;end
if ransum=4 then do;tr "\n1\c5He rammed your \cf"armor" \c5and"
tr "hit you for \cf"hityou+5" \c5hitpoints!";tr "\c5He also lost \c1"ramlos" \c5by hitting you."
hitpoints=hitpoints-(hityou+5);hitoppo=hitoppo-ramlos;if hitpoints<=0 & hitoppo <= 0 then signal DRAWFIT
if hitpoints<=0 then signal LOSFIT;if hitoppo<=0 then signal WONFIT;end;end
if rannum=2 then do;ransum=RANDOM(1,4,Time('s'));if ransum=1|ransum=2|ransum=3 then do
tr "\n2\c5He hit you for "hityou" hitpoints!";hitpoints=hitpoints-hityou
if hitpoints<=0 then signal LOSFIT;end;if ransum=4 then do;tr "\n1\c5He rammed your "armor" and"
tr "\c5hit you for "hityou+5" hitpoints!";tr "\c6He also lost \cf"ramlos" \c6by hitting you."
hitpoints=hitpoints-(hityou+5);hitoppo=hitoppo-ramlos;if hitpoints<=0 & hitoppo<=0 then signal DRAWFIT
if hitpoints<=0 then signal LOSFIT;if hitoppo<=0 then signal WONFIT;end
tr "\n1\c2You hit him for \c1"hithim" \c2hitpoints!";hitoppo=hitoppo-hithim
if hitoppo<=0 then signal WONFIT;end;signal FIGHTSC
RAMH:
call STA;rannum=RANDOM(1,2,Time('s'));if rannum=1 then do;tr "\n1\c2You rammed his "armoppo" and"
tr "\c2hit him for "hithim+5" hitpoints!";tr "\c2You also lost "ramlos" by hitting him."
hitpoints=hitpoints-ramlos;hitoppo=hitoppo-(hithim+5);if hitpoints<=0 & hitoppo<=0 then signal DRAWFIT
if hitoppo<=0 then signal WONFIT;if hitpoints<=0 then signal LOSFIT;ransum=RANDOM(1,4,Time('s'))
if ransum=1|ransum=2|ransum=3 then do;tr "\n2\c5He hit you for "hityou" hitpoints!"
hitpoints=hitpoints-hityou;if hitpoints<=0 then signal LOSFIT;end;if ransum=4 then do
tr "\n1\c5He rammed your "armor" and";tr "\c5hit you for "hityou+5" hitpoints!"
tr "\c5He also lost "ramlos" by hitting you.";hitpoints=hitpoints-(hityou+5);hitoppo=hitoppo-ramlos
if hitpoints<=0 & hitoppo<=0 then signal DRAWFIT;if hitpoints<=0 then signal LOSFIT
if hitoppo<=0 then signal WONFIT;end;end;if rannum=2 then do;ransum=RANDOM(1,4,Time('s'))
if ransum=1|ransum=2|ransum=3 then do;tr "\n2\c5He hit you for "hityou" hitpoints!"
hitpoints=hitpoints-hityou;if hitpoints<=0 then signal LOSFIT;end
if ransum=4 then do;tr "\n1\c5He rammed your "armor" and";tr "\c5hit you for "hityou+5" hitpoints!"
tr "\c5He also lost "ramlos" by hitting you.";hitpoints=hitpoints-(hityou+5)
hitoppo=hitoppo-ramlos;if hitpoints<=0 & hitoppo<=0 then signal DRAWFIT;if hitpoints<=0 then signal LOSFIT
if hitoppo<=0 then signal WONFIT;end;tr "\n1\c2You rammed his "armoppo" and"
tr "\c2hit him for "hithim+5" hitpoints!";tr "\c2You also lost "ramlos" by hitting him."
hitpoints=hitpoints-ramlos;hitoppo=hitoppo-(hithim+5);if hitpoints<=0 & hitoppo<=0 then signal DRAWFIT
if hitoppo<=0 then signal WONFIT;if hitpoints<=0 then signal LOSFIT;end;signal FIGHTSC
RET:
call STA;tr "\n1\c2YOU RUN!";if rank=ran1|rank=ran2|rank=ran3 then rannum=RANDOM(1,2,Time('s'))
if rank=ran4|rank=ran5|rank=ran6 then rannum=RANDOM(1,3,Time('s'));if rank=ran7|rank=ran8|rank=ran9 then rannum=RANDOM(1,4,Time('s'))
if rank=ran10|rank=ran11 then rannum=RANDOM(1,5,Time('s')) ;if rank=ran12 then rannum=RANDOM(1,6,Time('s'))
if rannum=1 then do;tr "\n1\c5`I don't think so.' says the "wh"."
tr "\c5You can't escape from me right now!";end;if rannum=2|rannum=3|rannum=4|rannum=5|rannum=6 then do
ex=RANDOM(51,122,Time('s'));tr "\n1\c5You ESCAPED from The Arena!\n1"
tr "\n1\c4 You are the disgrace of The Arena!";tr "\n1\c5 You have 0 hitpoints.";tr "\c3 Oh well, better luck next time!";call delay(150) ;signal MENU1
ss "\n1\c3Fight Commands: \c6[\cfA\c6] \c1Attack, \c6[\cfR\c6] \c1Retreat, \c6[\cfH\c6]\c1 Hit his vehicle\c6> \c1";getchar;if nocarrier() then signal bye
opt=result;if opt=PA then signal BYE;if opt="A" then signal ATTACK;if opt="R" then signal RETREAT;if opt="H" then signal RAMHIM
if opt="Q" then signal RETREAT;signal FIGHTOPT
STA:
if armoppo=arm1 then ar=RANDOM(0,2,Time('s'));if armoppo=arm2 then ar=RANDOM(0,3,Time('s'))
if armoppo=arm3 then ar=RANDOM(0,4,Time('s'));if armoppo=arm4 then ar=RANDOM(0,5,Time('s'))
if armoppo=arm5 then ar=RANDOM(0,6,Time('s'));if armoppo=arm6 then ar=RANDOM(0,7,Time('s'))
if armoppo=arm7 then ar=RANDOM(0,8,Time('s'));if armoppo=arm8 then ar=RANDOM(0,9,Time('s'))
if armoppo=arm9 then ar=RANDOM(1,10,Time('s'));if armoppo=arm10 then ar=RANDOM(2,11,Time('s'))
if armoppo=arm11 then ar=RANDOM(3,12,Time('s'));if armoppo=arm12 then ar=RANDOM(4,13,Time('s'))
if armor=arm1 then as=RANDOM(0,2,Time('s'));if armor=arm2 then as=RANDOM(0,3,Time('s'))
if armor=arm3 then as=RANDOM(0,4,Time('s'));if armor=arm4 then as=RANDOM(0,5,Time('s'))
if armor=arm5 then as=RANDOM(0,6,Time('s'));if armor=arm6 then as=RANDOM(0,7,Time('s'))
if armor=arm7 then as=RANDOM(0,8,Time('s'));if armor=arm8 then as=RANDOM(1,9,Time('s'))
if armor=arm9 then as=RANDOM(2,10,Time('s'));if armor=arm10 then as=RANDOM(3,11,Time('s'))
if armor=arm11 then as=RANDOM(4,12,Time('s'));if armor=arm12 then as=RANDOM(5,13,Time('s'))
if wepoppo=wep1 then wr=RANDOM(2,4,Time('s'));if wepoppo=wep2 then wr=RANDOM(3,5,Time('s'))
if wepoppo=wep3 then wr=RANDOM(4,6,Time('s'));if wepoppo=wep4 then wr=RANDOM(5,7,Time('s'))
if wepoppo=wep5 then wr=RANDOM(6,8,Time('s'));if wepoppo=wep6 then wr=RANDOM(7,9,Time('s'))
if wepoppo=wep7 then wr=RANDOM(8,10,Time('s'));if wepoppo=wep8 then wr=RANDOM(9,11,Time('s'))
if wepoppo=wep9 then wr=RANDOM(10,12,Time('s'));if wepoppo=wep10 then wr=RANDOM(11,13,Time('s'))
if wepoppo=wep11 then wr=RANDOM(12,14,Time('s'));if wepoppo=wep12 then wr=RANDOM(13,15,Time('s'))
if weapon=wep1 then ws=RANDOM(2,4,Time('s'));if weapon=wep2 then ws=RANDOM(3,5,Time('s'))
if weapon=wep3 then ws=RANDOM(4,6,Time('s'));if weapon=wep4 then ws=RANDOM(5,7,Time('s'))
if weapon=wep5 then ws=RANDOM(6,8,Time('s'));if weapon=wep6 then ws=RANDOM(7,9,Time('s'))
if weapon=wep7 then ws=RANDOM(8,10,Time('s'));if weapon=wep8 then ws=RANDOM(9,11,Time('s'))
if weapon=wep9 then ws=RANDOM(10,12,Time('s'));if weapon=wep10 then ws=RANDOM(11,13,Time('s'))
if weapon=wep11 then ws=RANDOM(12,14,Time('s'));if weapon=wep12 then ws=RANDOM(13,15,Time('s'))
ramlos=RANDOM(2,7,Time('s'));hithim=ws-ar;if hithim<0 then hithim=0;hityou=wr-as
if hityou<0 then hityou=0;return
ATTACK:
call STA;rannum=RANDOM(1,2,Time('s')) ;if rannum=1 then do;
tr "\n1\c2You hit \c1"them"\c2 for "hithim" hitpoints!";wutoppo=wutoppo-hithim
if wutoppo<=0 then signal WONFIGHT;ransum=RANDOM(1,4,Time('s'));if ransum=1|ransum=2|ransum=3 then do
tr "\n2\c1"them"\c5 hit you for "hityou" hitpoints!";hitpoints=hitpoints-hityou
if hitpoints<=0 then signal LOSTFIGHT;end;if ransum=4 then do;tr "\n1\c1"them"\c5 rammed your "armor" and"
tr "\c5hit you for "hityou+5" hitpoints!";tr "\c5He also lost "ramlos" by hitting you."
hitpoints=hitpoints-(hityou+5);wutoppo=wutoppo-ramlos;if hitpoints<=0 & wutoppo<=0 then signal DRAWFIGHT
if hitpoints<=0 then signal LOSTFIGHT;if wutoppo<=0 then signal WONFIGHT;end;end
if rannum=2 then do;ransum=RANDOM(1,4,Time('s'));if ransum=1|ransum=2|ransum=3 then do
tr "\n2\c1"them"\c5 hit you for "hityou" hitpoints!";hitpoints=hitpoints-hityou
if hitpoints<=0 then signal LOSTFIGHT;end;if ransum=4 then do;tr "\n1\c1"them"\c5 rammed your "armor" and"
tr "\c5hit you for "hityou+5" hitpoints!";tr "\c5He also lost "ramlos" by hitting you."
hitpoints=hitpoints-(hityou+5);wutoppo=wutoppo-ramlos;if hitpoints<=0 & wutoppo<=0 then signal DRAWFIGHT
if hitpoints<=0 then signal LOSTFIGHT;if wutoppo<=0 then signal WONFIGHT;end
tr "\n1\c2You hit \c1"them"\c2 for "hithim" hitpoints!";wutoppo=wutoppo-hithim
if wutoppo<=0 then signal WONFIGHT;end;signal FIGHTOPT
RAMHIM:
call STA;rannum=RANDOM(1,2,Time('s'));if rannum=1 then do;tr "\n1\c2You rammed \c1"them"'S\c2 "armoppo
tr "\c2and hit him for "hithim+5" hitpoints!";tr "\c2You also lost "ramlos" by hitting him."
hitpoints=hitpoints-ramlos;wutoppo=wutoppo-(hithim+5);if hitpoints<=0 & wutoppo<=0 then signal DRAWFIGHT
if wutoppo<=0 then signal WONFIGHT;if hitpoints<=0 then signal LOSTFIGHT;ransum=RANDOM(1,4,Time('s'))
if ransum=1|ransum=2|ransum=3 then do;tr "\n2\c1"them"\c5 hit you for "hityou" hitpoints!"
hitpoints=hitpoints-hityou;if hitpoints<=0 then signal LOSTFIGHT;end;if ransum=4 then do
tr "\n1\c1"them"\c5 rammed your "armor;tr "\c5and hit you for "hityou+5" hitpoints!"
tr "\c5He also lost "ramlos" by hitting you.";hitpoints=hitpoints-(hityou+5);wutoppo=wutoppo-ramlos
if hitpoints<=0 & wutoppo<=0 then signal DRAWFIGHT;if hitpoints<=0 then signal LOSTFIGHT
if wutoppo<=0 then signal WONFIGHT;end;end;if rannum=2 then do;ransum=RANDOM(1,4,Time('s'))
if ransum=1|ransum=2|ransum=3 then do;tr "\n2\c1"them"\c5 hit you for "hityou" hitpoints!"
hitpoints=hitpoints-hityou;if hitpoints<=0 then signal LOSTFIGHT;end;if ransum=4 then do
tr "\n1\c1"them"\c5 rammed your "armor;tr "\c5and hit you for "hityou+5" hitpoints!"
tr "\c5He also lost "ramlos" by hitting you.";hitpoints=hitpoints-(hityou+5);wutoppo=wutoppo-ramlos
if hitpoints<=0 & wutoppo<=0 then signal DRAWFIGHT;if hitpoints<=0 then signal LOSTFIGHT
if wutoppo<=0 then signal WONFIGHT;end;tr "\n1\c2You rammed \c1"them"'S\c2 "armoppo
tr "\c2and hit him for "hithim+5" hitpoints!";tr "\c2You also lost "ramlos" by hitting him."
hitpoints=hitpoints-ramlos;wutoppo=wutoppo-(hithim+5);if hitpoints<=0 & wutoppo<=0 then signal DRAWFIGHT
if wutoppo<=0 then signal WONFIGHT;if hitpoints<=0 then signal LOSTFIGHT;end;signal FIGHTOPT
RETREAT:
call STA;tr "\n1\c2YOU RUN!";if rank=ran1|rank=ran2|rank=ran3 then rannum=RANDOM(1,2,Time('s'))
if rank=ran4|rank=ran5|rank=ran6 then rannum=RANDOM(1,3,Time('s'));if rank=ran7|rank=ran8|rank=ran9 then rannum=RANDOM(1,4,Time('s'))
if rank=ran10|rank=ran11 then rannum=RANDOM(1,5,Time('s'));if rank=ran12 then rannum=RANDOM(1,6,Time('s'))
if rannum=1 then do;tr "\n1\c5`I don't think so.' says \c1"them"\c5.";tr "\c5You can't escape me right now!"
end;if rannum=2|rannum=3|rannum=4|rannum=5|rannum=6 then do;ex=RANDOM(51,122,Time('s'))
tr "\n1\c5You ESCAPED off of exit "ex"!\n1";writeln(news,' 'handle' ran away from 'them'!')
call delay(110);signal MENU1;end;rannum=RANDOM(1,2,Time('s'));if rannum=1 then do
tr "\n1\c1"them"\c5 hits you for "hityou" hitpoints!";hitpoints=hitpoints-hityou;if hitpoints<=0 then signal LOSTFIGHT
end;if rannum=2 then do;tr "\n1\c1"them"\c5 misses you!";end;call delay(20);signal FIGHTOPT
tr center("\n1\c2AMAZING!",78);tr center("\n1\c4Both of you killed each other with your final blows!",78)
tr center("\c4You both have 0 hitpoints, you kept your money.",78);writeln(news,' 'handle' and 'them' killed each other!');call CHECKRANK;call SAVEOPPO;call delay(110);signal MENU1
TOP:
tr "\n1\c2One Moment, Calculating High Scores...";call POINTCK;call HICK;call SHOWIT;signal MENU1
HICK:
call open(top10,yupdir'TopOnes','R');topalias.1=handle;topscore.1=points;do i=2 to 11
tops=readln(top10);topalias.i=delword(tops,1,1);topscore.i=word(tops,1);if topalias.1=topalias.i then topscore.i='-1'
end;call close(top10);do i=1 to 10;do h=i+1 to 11;if topscore.i<topscore.h then do
tr "\n1\c1Press \c2RETURN\c1 when finished:\g1 ";signal MENU1
TRIP:
randm=RANDOM(1,3,Time('s'));rna=RANDOM(1,6,Time('s'));tr CLS;tr center("\n1 \z6\c3 First of the Last Travel Agency \z0\c1\n1",78);tr center("\c3Today's places to travel",78);tr center("\c6--------------------------",78)
tr '\c1'
if randm=1 then tr center("A. Washington D.C. ",78);if randm=2 then tr center("A. Wall Street - NY ",78);if randm=3 then tr center("A. Outer Mongolia ",78)
if randm=1 then tr center("B. Peru ",78);if randm=2 then tr center("B. Peru ",78);if randm=3 then tr center("B. England ",78)
if randm=1 then tr center("C. Germany ",78);if randm=2 then tr center("C. Switzerland ",78);if randm=3 then tr center("C. Niagra Falls - NY ",78)
if randm=1 then tr center("D. Verona, Italy ",78);if randm=2 then tr center("D. Athens, Greece ",78);if randm=3 then tr center("D. Disney World ",78)
tr "\c1";ss "\c3Where do you want to travel, Sir? \c6[\cfQ\c6]\c3 Quits:\c6> \c1";getchar;if nocarrier() then signal bye
trav=result;if trav=PA then signal BYE;if trav="Q" then signal MENU1
if randm=1 & trav="A" then signal WASHINGTON;if randm=1 & trav="B" then signal PERU
if randm=1 & trav="C" then signal GERMANY;if randm=1 & trav="D" then signal VERONA
if randm=2 & trav="A" then signal WALLSTREET;if randm=2 & trav="B" then signal PERU
if randm=2 & trav="C" then signal SWITZERLAND;if randm=2 & trav="D" then signal ATHENS
if randm=3 & trav="A" then signal MONGOLIA;if randm=3 & trav="B" then signal ENGLAND
if randm=3 & trav="C" then signal NIAGARA;if randm=3 & trav="D" then signal DISNEY
signal TRIP
WASHINGTON:
price=9000;tr CLS;tr center("\z6\c3 Going to Washington D.C. \z0\c1",78)
tr "\n1 Washington D.C. is the political gut of our nation. All the";tr " largest decisions are made here that effect our lives greatly."
tr " (And hopefully our president has nothing to do with them.)\n1";call GOING
tr "\c2Arrived in Washington D.C.\n1";call delay(80);rannum=RANDOM(1,5,Time('s'))
if rannum=1 then do;tr "\c3In Washington D.C. you meet the";tr "\c3president and get a loan from him!"
tr "\cfYou get $30000!";tr "\c6There's nothing like living off of";tr "honest taxpayers' money, eh?"
money=money+30000;end;if rannum=2 then do;tr "\c3Lean too far out of the Washington"
tr "\c3Monument and fall!";tr "\cfYou lose 20 hitpoints.";if hitpoints<20 then hitpoints=0
if hitpoints>=20 then hitpoints=hitpoints-20;end;if rannum=3 then do
tr "\c3Get appointed a supreme court judge!";tr "\cfYou earn $20000!";money=money+20000
end;if rannum=4 then do;tr "\c3Get locked in a taxi from hell!";tr "\c3Tour the entire city 800 times over."
tr "\cfLose $15000 cab fair.";if money<15000 then money=0;if money>=15000 then money=money-15000
end;if rannum=5 then do;tr "\c3Read the constitution and feel";tr "\c3intellectually enlightened!"
tr "\cfRecieve 40 hitpoints.";if maxpoints>=40 then hitpoints=hitpoints+40;if maxpoints<40 then hitpoints=maxpoints
end;signal RATRACE
RATRACE:
call delay(100);qu "\n1\c1Press \c2RETURN\c1 when finished: ";if result=PA then signal BYE
tr "\n1\c5Well, it's been fun but you gotta";tr "\c5get back into the rat race!"
tr "\c1 ";call delay(210);signal MENU1
PERU:
price=7000;tr CLS;tr center("\z6\c3 Going to Peru \z0\c1",78);tr "\n1 Peru is a land of beauty and mystery, just beware, it's a"
tr " jungle out there!\n1";call GOING;tr "\c2Arrived in Peru.\n1";call delay(80)
rannum=RANDOM(1,5,Time('s'));if rannum=1 then do;tr "\c3Learn ancient healing spells from"
end;if rannum=2 then do;tr "\c3Fall off of cliff!";tr "\cfLost 30 hitpoints."
if hitpoints<30 then hitpoints=0;if hitpoints>=30 then hitpoints=hitpoints-30
end;if rannum=3 then do;tr "\c3Discover gold in an ancient tomb!";tr "\cfGain $50000!"
money=money+50000;end;if rannum=4 then do;tr "\c3Get bitten by a snake and go to the"
tr "\c\c1witch doctor!";tr "\cfHe charges you $10000 for services.";if money<10000 then money=0
if money>=10000 then money=money-10000;end;if rannum=5 then do;tr "\c3Learn to dine CANNIBAL style!"
tr "\cfGain 40 hitpoints!\n1";if maxpoints>=40 then hitpoints=hitpoints+40;if maxpoints<40 then hitpoints=maxpoints
end;signal RATRACE
GERMANY:
price=10000;tr CLS;tr center("\z6\c3 Going to Germany \z0\c1",78);tr "\n1 Ah Germany, good ol' Deutschland. Home to many beers and";tr " bratwursts, a country of great prosperity risen out of the ashes"
tr " of World War II. (Not to mention it is great for partying!)\n1";call GOING;tr "\c2Arrived in Germany.\n1";call delay(80);rannum=RANDOM(1,5,Time('s'))
if rannum=1 then do;tr "\c3Win a German Bratwurst eating contest!";tr "\cfWin $30000 and a Volkswagen!"
money=money+30000;if armor=arm1|armor=arm2|armor=arm3|armor=arm4|armor=arm5|armor=arm6|armor=arm7|armor=arm8 then armor=arm9
end;if rannum=2 then do;tr "\c3Party too much and have a hangover the";tr "\c3size of Africa!"
tr "\cfLose 20 hitpoints.";if hitpoints<20 then hitpoints=0;if hitpoints>=20 then hitpoints=hitpoints-20
end;if rannum=3 then do;tr "\c3Total your vehicle on the autobahn!";tr "\cfLose $25000 for repairs."
if money<25000 then money=0;if money>=25000 then money=money-25000;end
if rannum=4 then do;tr "\c3Recieve a vitamin mixture from the";tr "\c3local Apothecary!"
tr "\cfGain "maxpoints" hitpoints!";hitpoints=maxpoints;end;if rannum=5 then do
tr "\c3Get caught on the cirle drives for";tr "three days!";tr "\cfLose $1000 for gas."
if money<1000 then money=0;if money>=1000 then money=money-1000;end;signal RATRACE
VERONA:
price=4000;tr CLS;tr center("\z6\c3 Going to Verona, Italy \z0\c1",78)
tr "\n1 Verona, Italy -- the host city to the immortal love story of";tr " Shakespeare's Romeo and Juliet, truly the greatest love story"
tr " ever written... (although a bit cryptic!)\n1";call GOING;tr "\c2Arrived in Verona, Italy.\n1"
call delay(80);rannum=RANDOM(1,4,Time('s'));if rannum=1 then do;tr "\c3See a play done of Romeo and Juliet!"
tr "\cfPay $4000 to see it.";if money<4000 then money=0;if money>=4000 then money=money-4000
end;if rannum=2 then do;tr "\c3Visit the Capulet's Tomb and get";tr "trapped for a week!"
tr "\cfLose 40 hitpoints!";if hitpoints<40 then hitpoints=0;if hitpoints>=40 then hitpoints=hitpoints-40
end;if rannum=3 then do;tr "\c3Some people think you look just like";tr "\c3Romeo! (Which is odd if you are a woman.)"
tr "\cfRecieve in gifts $18000!";money=money+18000;end;if rannum=4 then do
tr "\c3Some people think you look just like";tr "\c3Juliet! (Whick is odd if you are a man.)"
tr "\cfRecieve in gifts $19000!";money=money+19000;end;signal RATRACE
WALLSTREET:
price=12500;tr CLS;tr center("\z6\c3 Going to Wall Street! \z0\c1",78);tr "\n1 Wall Street, where money is made and fortunes are lost. Where";tr " great men are made and greedy men are broken. This crazy place"
tr " is locked in the heart of a crazy city, where else, New York.\n1";call GOING
tr "\c2Arrived at Wall Street.\n1";call delay(80);rannum=RANDOM(1,5,Time('s'))
if rannum=1 then do;tr "\c3You break even on the stocks...";tr "\cfRecieve $12500 salary."
money=money+12500;end;if rannum=2 then do;tr "\c3HIT IT BIG IN DOW JONES!"
tr "\cfRecieve $75000!!!\c1";money=money+75000;end;if rannum=3 then do;tr "\c3Get mugged in the big apple!"
tr "\cfLose $20000.";if money<20000 then money=0;if money>=20000 then money=money-20000
end;if rannum=4 then do;tr "\c3Get hit by a maniac cab driver!";tr "\cfYou lose 50 hitpoints."
if hitpoints<50 then hitpoints=0;if hitpoints>=50 then hitpoints=hitpoints-50
end;if rannum=5 then do;tr "\c3AT&T goes through the roof!";tr "\cfGain $55000!"
money=money+55000;end;signal RATRACE
SWITZERLAND:
price=8500;tr CLS;tr center("\z6\c3 Going to Switzerland \z0\c1",78);tr "\n1 Switzerland is famous for skiing, watches, and many other things"
tr " that I guess I'm too stupid to think of right now. The swiss,";tr " locked in a mountainous cage, stands protected from enemy countries"
tr " thus remaining one of the FEW neutral countries.\n1";call GOING;tr "\c2Arrived in Swizerland."
call delay(80);tr " \c1";rannum=RANDOM(1,5,Time('s'));if rannum=1 then do;tr "\c3Go skiing in the Swiss Alps and"
tr "break your leg!";tr "\cfLose 40 hitpoints.";if hitpoints<40 then hitpoints=0;if hitpoints>=40 then hitpoints=hitpoints-40
end;if rannum=2 then do;tr "\c3AVALANCHE!!! You are buried in";tr "\c3snow!"
tr "\cfLose 40 hitpoints.";if hitpoints<40 then hitpoints=0;if hitpoints>=40 then hitpoints=hitpoints - 40
end;if rannum=3 then do;tr "\c3Save a millionare's life in a chair";tr "\c3lift accident! (He fell on you.)"
tr "\cfWin $50000!";money=money+50000;end;if rannum=4 then do;tr "\c3Eat enough to feed a horse!"
tr "\cfGain "maxpoints" hitpoints.";hitpoints=maxpoints;end;if rannum=5 then do
tr "Find a cave with ancient artifacts!";tr "\cfGet $30000!";money=money+30000
end;signal RATRACE
ATHENS:
price=10000;tr CLS;tr center("\z6\c3 Going to Athens \z0\c1",78);tr "\n1 Athens, Greece, the heart of Greek mythology. Many stories and";tr " plays were made of this place relating to the Gods, and their"
tr " adventures.\n1";call GOING;tr "\c2Arrived in Athens, Greece.";call delay(80)
rannum=RANDOM(1,5,Time('s'));if rannum=1 then do;tr "\n1\c3Go to watch a play of Antigone."
tr "\cfPay $5000.";if money<5000 then money=0;if money>=5000 then money=money-5000
end;if rannum=2 then do;tr "\c3Meet Zeus! He gives you a gift!";tr "\cfRecieve $30000!"
money=money+30000;end;if rannum=3 then do;tr "\c3Hades kidnaps you to the underword!"
tr "\cfLose 50 hitpoints.";if hitpoints<50 then hitpoints=0;if hitpoints>=50 then hitpoints=hitpoints-50
end;if rannum=4 then do;tr "\c3Eat ambrosia and drink nectar!";tr "\cfGain "maxpoints" hitpoints!"
hitpoints=maxpoints;end;if rannum=5 then do;tr "\c3Buy a colluseum!";tr "\cfPay $22000!"
if money<22000 then money=0;if money>=22000 then money=money-22000;end;signal RATRACE
MONGOLIA:
price=4000;tr CLS;tr center("\z6\c3 Going to Outer Mongolia! \z0\c1",78)
tr "\n1 Outer Mongolia... hmm.. hard to explain, but in itself an ";tr " adventure. This country was the fertle ground in which Ghengis"
tr " Kahn rose out of to ravage China. (And we all know what he's like!";tr " -imagine what the country must be like!) "
call GOING;tr "\n1\c2Arrived in Outer Mongolia.\n1";call delay(80);rannum=RANDOM(1,5,Time('s'))
if rannum=1 then do;tr "\c3Learn the ancient art of wizardry";tr "\c3and heal yourself!"
tr "\cfGain "maxpoints" hitpoints!";hitpoints=maxpoints;end;if rannum=2 then do
tr "\c3Climb to a mountaintop to get words";tr "\c3of wisdom from an old wiseman only"
tr "\c3to find him dead!";tr "\cfLose 40 hitpoints for the effort.";tr "Pay $10000 for funeral services."
if hitpoints<40 then hitpoints=0;if hitpoints>=40 then hitpoints=hitpoints-40
if money<10000 then money=0;if money>=10000 then money=money-10000;end
if rannum=3 then do;tr "\c3Win Mongolia's famous gameshow:";tr "\c3STALK DOWN THE WILD BEAR AND KILL"
tr "\c3IT WITH YOUR BARE HANDS AND TONGUE!";tr "\cfWin $40000!";money=money+40000
end;if rannum=4 then do;tr "\c3Record Mongolia's #1 song:";tr "\c3Ode to Ghengis Kahn."
tr "\cfWin $25000!";money=money+25000;end;if rannum=5 then do;tr "\c3Break Mongolia's law of not"
tr "using utensils.";tr "\cfFined $20000.";if money<20000 then money=0
if money>=20000 then money=money-20000;end;signal RATRACE
ENGLAND:
price=9500;tr CLS;tr center("\z6\c3 Going to England \z0\c1",78);tr "\n1 Jolly Ol' England, as they say, is a whole different culture from"
tr " the American sort. Here queens and kings are supported (as well as";tr " Amigas!)"
call GOING;tr "\n1\c2Arrived in England.\n1";call delay(80);rannum=RANDOM(1,5,Time('s'));if rannum=1 then do
tr "\c3Become the Price of Wales!";tr "\cfEarn $32000!";money=money+32000;end
if rannum=2 then do;tr "\c3Discover the genetic secret of";tr "why the english have extremely"
tr "\c3large noses!";tr "\cfWin $23000!";money=money+23000;end;if rannum=3 then do
tr "\c3Get envolved in a 20 bicycle";tr "pileup!";tr "Lose 35 hitpoints."
if hitpoints<35 then hitpoints=0;if hitpoints>=35 then hitpoints=hitpoints-35
end;if rannum=4 then do;tr "\c3Get pulled over for driving on the";tr "\c3wrong side of the road!"
tr "\cfFined $35000!";if money<35000 then money=0;if money>=35000 then money=money-35000
end;if rannum=5 then do;tr "\c3Accidentally get trapped watching a";tr "\c39 hour movie that is extremely boring"
tr "and not even in the english language!";tr "Lose $23000 parking meter fees."
tr "\cfLose 10 hitpoints for IQ point loss.";if money<23000 then money=0;if money>=23000 then money=money-23000
if hitpoints<10 then hitpoints=0;if hitpoints>=10 then hitpoints=hitpoints-10
end;signal RATRACE
NIAGARA:
price=11000;tr CLS;tr center("\z6\c3 Going to Niagara Falls, NY \z0\c1",78)
tr "\n1 Niagara Falls, the famed gigantic falls which have claimed lives";tr " and made fame. Their sight is breathtaking. --Plus there are a"
tr " multitude of wax museums for those who don't like water!\n1";call GOING
tr "\c2Arrived in Niagara Falls, NY.\n1";call delay(80);rannum=RANDOM(1,6,Time('s'))
if rannum=1 then do;tr "\c3Walk across the falls on a";tr "tightrope!";tr "\cfWin $20000!"
money=money+20000;end;if rannum=2 then do;tr "\c3Attempt at walking across the"
tr "\c3falls on a tightrope--AND FALL";tr "\c3IN! (Smooth move ex-lax!)";tr "\cfLose 50 hitpoints."
if hitpoints<50 then hitpoints=0;if hitpoints>=50 then hitpoints=hitpoints-50
end;if rannum=3 then do;tr "\c3Go down the falls in a barrel!";tr "\c3And.. well, it isn't pretty."
tr "\cfLose 50 hitpoints.";if hitpoints<50 then hitpoints=0;if hitpoints>=50 then hitpoints=hitpoints-50
end;if rannum=4 then do;tr "\c3Get stuck in wax museum hell!";tr "\cfLose $19000!"
if money<19200 then money=0;if money>=19000 then money=money-19000;end;if rannum=5 then do
tr "\c3Discover PLUTONIUM under the falls!";tr "\cfAwarded $55000!";money=money+55000
end;if rannum=6 then do;tr "\c3Discover the fountain of youth in";tr "the falls!"
tr "\cfYou get "maxpoints" hitpoints!";hitpoints=maxpoints;end;signal RATRACE
DISNEY:
price=13000;tr CLS;tr center("\z6\c3 I'm Going to Disney World! \z0",78)
tr "\n1 "handle", you have just one the Super Bowl,! Where are you";tr " going next? ;-) Yes, childrens' paradise and adults wonder,"
tr " this wonderous place was founded by a man who wanted a fun place";tr " different from the dirty, dusty carnivals in this world, Walt Disney"
call GOING;tr "\n1\c2Arrived in Disney World.\n1";call delay(50);rannum=RANDOM(1,5,Time('s'));if rannum=1 then do;tr "\c3Uncover Disney's multibillion"
tr "\c3dollar plot to initiate SDI!";tr "\cfAwarded $33000!";money=money+33000
end;if rannum=2 then do;tr "\c3Get trapped on Space Mountain";tr "roller coaster without a seatbelt!"
tr "\cfLose 60 hitpoints.";if hitpoints<60 then hitpoints=0;if hitpoints>=60 then hitpoints=hitpoints-60
end;if rannum=3 then do;tr "\c3You get to star in a Disney movie!";tr "\cfPayed $20000!"
money=money+20000;end;if rannum=4 then do;tr "\c3You are mysteriously turned into an"
tr "animated penguin!";tr "\cfLose $40000! (Penguins have no";tr "\cfpockets.. do they?)"
if money<40000 then money=0;if money>=40000 then money=money-40000;end;if rannum=5 then do
tr "\n1\c3You have $\c1"money"\c3. The trip costs \c1"price"\c3.";ss "\n1\c3Wanna go? (\c5Y\c3/\c2n\c3):\c6> \c1";getchar;if nocarrier() then signal bye
ans=result;if ans=PA then signal BYE;if ans="N" then signal TRIP;tr CLS
if money<price then do;tr center("\n1\c2YOU DON'T HAVE ENOUGH MONEY TO GO!",78)
ransak=RANDOM(1,200,Time('s'));if ransak=13|ransak=21|ransak=192|ransak=112|ransak=80 then do
if money>=50000 then money=money-20000;if money<50000 then money=money-money
if hitpoints>=80 then hitpoints=hitpoints-30;if hitpoints<80 then hitpoints=hitpoints-hitpoints
tr "\c2YOUR PLANE CRASH LANDED!!!";tr "YOU LOSE 80 HITPOINTS!";tr "\c2YOU LOSE 50000 DOLLARS TO GET A TRIP BACK & HOSPITAL FEES!"
ss "\n1\c3Sue the pilot (Y/n)? ";getchar;if nocarrier() then signal bye;ans=result;if ans=PA then signal BYE;if ans="N" then do;tr "\c4Ok.. not sueing him."
tr "\n1\c4 Right now it costs $\c1"room"\c4 per night."
tr "\c3 30 hitpoints healed a night. - You need to heal \c1"lost"\c3."
qu "\n1\c3 Stay how many nights? \c6[\cfQ\c6]\c3 Quits\c6:\z0";stay=upper(result);if stay=PA then signal DIE;if stay="Q" then signal MENU1;if stay=""|stay=" "|stay=" "|stay=" "|stay=" "|stay=" " then signal MENU1
if stay=0 then do;tr CLS;tr "\n1\c3What, are you just going to mope around in the lounge all day?"
tr "\z0";call delay(150);signal MENU1;end;if stay>9999999999999999999999999999999999999999999999999999999999999999999999999999999999 then signal YOT
if stay<0 then signal YOT;payme=stay*room;if payme>money then do;tr CLS
tr center("\n1\c2You don't have enough money to stay here that long!",78);tr " \z0"
call delay(130);end;if money=payme then do;tr "\n1\c4You are going to be \c2BROKE\c4 if you stay here that long!\z0"
ss "\n1\c3Stay here anyway (\c5Y\c3/\c2n\c3)? \z0";getchar;if nocarrier() then signal bye;stayany=result;if stayany=PA then signal BYE;if stayany="N" then do
tr "\c6Ok.. leaving Hotel...\z0";call delay(100);signal MENU1;end;end;if payme<=money then signal RESTHERE
signal MENU1
YOT:
tr CLS;tr center("\n1\c2You must enter a NUMBER! ",78);tr "\z0 ";call delay(110);signal REST
RESTHERE:
money=money-payme;runny=RANDOM(1,200,Time('s'));if runny>=money then runny=0
tr CLS;tr center("\n1\cfEnjoy your stay!\n1",78);turnsleft=turnsleft-1;ss "\c3Sleeping."
do i=1 to 20;ss "\c3Zzzzzzzzz\w2 ";call delay(20);i=i+1;end;hitpoints=hitpoints+(stay*30)
if hitpoints>maxpoints then hitpoints=maxpoints;tr "\n1\c3Ahhh.. you feel refreshed!"
tr "\c3You order $\c1"runny"\c3 in room service.";if money=0 then tr "\c3By the way.. \c2You're Broke!\z0"
qu "\n1\c1 Press \c2RETURN\c1 when finished:\z0 ";if result=PA then signal BYE;signal MENU1
YOURSTATS:
tr CLS;tr "\n1 \z6\c3 Player Statistics For The Yuppie "handle" \z0"
tr "\z0";ss "\c3What game do you want to play?\c6> ";getchar;if nocarrier() then signal bye
Choice=result;if Choice=PA then signal BYE;if Choice="Q" then signal MENU1;if Choice="S" then do
getuser 28;term=result;if term=0|term=1 then do;tr 'Sorry U Must have ANSI to play this game!';delay(200);signal Vegas;end
signal SLITS;end;if Choice="L" then signal LOTTO;if Choice="C" then signal CRAPS;if Choice="F" then signal FIFTY;signal VEGAS
FIFTY:
if money <= 0 then do;tr CLS;tr center("\n1\c2YOU NEED MONEY TO PLAY!",78)
call delay(150);signal VEGAS;end;t=b;tr CLS"\n1 \z6\c3 Playing Fifty-Fifty \z0"
tr center("\n1\c3You have a %50 chance of winning double your bet.",78)
ss "\n1\c6 You have $\c3"money"\c6, your bet (Max $\c35000\c6)?"
qu " ";Betty=result;if Betty='Q' then signal VEGAS
if Betty=PA then signal BYE;if Betty>money then do;tr center("\n1\c2YOU DON'T HAVE ENOUGH MONEY TO BET THAT MUCH!\n1",78)
call delay(110);signal FIFTY;end;if Betty>5000|Betty<1 then do;tr CLS
tr center("\n1\c2You must bet between 1 and 5000!\n1",78);call delay(110)
signal FIFTY;end;if Betty<=5000 & Betty>=1 then do;if trunsleft<1 then do;tr 'You have No turns left!';signal menu1;end; turnsleft=turnsleft-1;signal LATER;else call YO;signal FIFTY
LATER:
rnm=RANDOM(1,4,Time('s'));if rnm=1|rnm=3 then do;money=money-Betty
tr "\n1\cf You lost this time, bud!";tr "\c4 You lost $\c1"Betty"\c4.\n1"
call delay(150);signal PLAYGEN;end;if rnm=2|rnm=4 then do;tr "\cf You Won!!!"
tr "\c4 You won $\c1"Betty*2"\c4!\n1";money=money+(Betty*2);call delay(150)
signal PLAYGEN;end;signal PLAYGEN
LOTTO:
if money<=0 then do;tr CLS'\n1';tr center("\c2YOU NEED MONEY TO PLAY THIS GAME!",78)
call delay(150);signal VEGAS;end;t=a;tr cls"\n1 \z6\c3 Playing the Lotto \z0"
flag=f;tr "\n1\c6 You have $\c3"money"\c6. Maximum bet is $\c35000\c6."
qu "\c3 How much money do you want to bet?:\z0";Wager=upper(result);if Wager=PA then signal BYE;if Wager="Q" then signal VEGAS
if Wager>money then do;tr center("\n1\c2YOU DON'T HAVE ENOUGH MONEY TO BET THAT MUCH!\n2",78)
call delay(110);signal LOTTO;end;if Wager>5000 then do;tr center("\c2MAXIMUM BET IS $5000!\n1",78)
call delay (110);signal LOTTO;end;if Wager>=1 & Wager<=5000 then do;if trunsleft<1 then do;tr 'You have No turns left!';signal menu1;end;turnsleft=turnsleft-1;signal WEZ;end
else call YO;signal LOTTO
WEZ:
ss "\n1\c3 Bet \cf"Wager"\c3 (\c5Y\c3/\c2n\c3)?: ";getchar;if nocarrier() then signal bye;okeydokey=result;if okeydokey=PA then signal BYE;if okeydokey="N" then signal LOTTO
signal GOON
GOON:
tr CLS'\n1';tr center("\c3Enter a number between 1 and 50, if that number comes up, you win",78)
tr center("\c3five times that amount, if you lose, you get one last chance to",78)
tr center("enter a number between 1 and 50, if you win, you will get triple",78)
tr center("your bet. If you win any of the two, you get a chance to go on",78)
tr center("to the finals where you get a chance to win 10 times your bet, but",78)
tr center("your chances are one in 60.\n1",78)
if flag=lasttime then do;tr center("\c5This is your last chance to win your money back,",78)
tr center("\c5if you don't win, you just lose what you originally",78);tr center("\c5betted, you won't lose more than you betted.\n1",78)
end;ss "\c4 Enter a number between 1 & 50:";qu " ";numb=result;if numb=PA then signal BYE;if numb<=50 & numb>=1 then signal WEENIE;else call YO;signal GOON
WEENIE:
tr CLS'\n2';rannum=RANDOM(1,50,Time('s'));ss "\c4 And, the number is... \z0";call delay(50);tr rannum"\c4!\n1"
if rannum=numb then do;tr center("\cfYou Won!!!",78);tr center("\c5 You won $\c1"Wager*5"\c5!!!",78)
tr center("\c4Good Job!!",78);if flag=f then money=money+(Wager*5);if flag=lasttime then money=money+(Wager*3)
signal FINALDRAW;end;if rannum ~=numb then do;if flag=f then money=money-Wager
tr center("\cfOh, to bad, you lose!",78);if flag=f then tr center("\c5 You lost $\c1"Wager"\c5.",78)
if flag=lasttime then tr center("\c5You didn't lose anything this time.",78);tr center("\c4Oh well, better luck next time!",78)
if flag=lasttime then do;tr center("\c2You didn't win your money back!",78);call delay(170);signal PLAYGEN
tr " * \c2 You have made made it this far, now lets see if you\c1 *"
tr "\c2 can win the REALLY BIG bucks!\c1";tr " * *"
tr " * * * * * * * * * * * * * * * * * * * *\z0"
call delay (200);tr center("\n1\c6Using your winning number for the draw.",78)
ss "\n1\c4And... The winning number is... \z0";call delay(50);tr randu"\c4!\c1\n1"
if randu=numb then do;tr center("\cfYOU WIN!!!",78);tr center("\c5 You won $\c1"Wager*10"\c5!!",78)
tr center("\c2GOOD JOB!\n1",78);money=money+(Wager*10);writeln(news,' 'handle' wins 'wager*10' in the lotto at vegas!')
tr "\c3The bright-red faced casino manager quickly ushers you out the door.\n1"
call delay(300);signal PLAYGEN;end;if randu ~=numb then do;tr center("\cfAwww.. too bad, you lost.",78)
tr center("\c5But at least you didn't lose anything!",78);tr center("\c2Better luck next time!",78)
tr "\n1\c3The relieved casino manager asks you to come back anytime.\n1"
call delay(200);signal PLAYGEN;end;signal PLAYGEN
PLAYGEN:
tr cls"\n1\c3 Would you like to play again (\c5y\c3/\c2N\c3)? ";getchar;if nocarrier() then signal bye
comegen=result;if comegen=PA then signal BYE;if comegen="N" then signal VEGAS;if comegen="Y" then do;if t=a then signal LOTTO
if t=b then signal FIFTY;end;signal VEGAS
LASTCHANCE:
call delay(150);flag=lasttime;signal GOON
YO:
tr CLS'\n1';tr center("\c2YOUR ANSWER MUST BE A NUMBER BETWEEN 1 AND 50!\n1",78)
call delay(110);return
BUYORSELLW:
tr CLS'\n1';do d=1 to 12;if weapon=wep||d then tr "\c3 Your current weapon is a "wep||d".\c1"
end;ss "\n1\c5 Buy or Sell your weapon (B/S)? ";getchar;if nocarrier() then signal bye;Choice=result;if Choice=PA then signal BYE;if Choice=B then signal BUYWEAPON
if Choice=S then signal SELLWEAPON;if Choice=Q then signal MENU1;signal MENU1
BUYORSELLA:
tr CLS'\n1';do d=1 to 12;if armor=arm||d then tr "\c3Your current vehicle is a "arm||d".\c1";end
ss "\n1\c5Buy or Sell your vehicle (B/S)? \c1";getchar;if nocarrier() then signal bye;Choice=result;if Choice=PA then signal BYE;if Choice=B then signal BUYARMOR
if Choice=S then signal SELLARMOR;if Choice=Q then signal MENU1;signal MENU1
BUYWEAPON:
w=b;tr CLS;tr " \z6\c3 Macy's Department Store Weapons \z0"
tr CLS'\n1';if w=a then tr center("\c4You have bought a \c1"armor"\c4!",78)
if w=b then tr center("\c6You have bought a \c1"weapon"\c6!\n1",78);call delay(110);return
SELLWEAPON:
tr "\n1\c4 Macy's will take your weapon for half price.";ss "\n1\cfAre You Sure (y/N)? \c1";getchar;if nocarrier() then signal bye
Choice=result;tr '\n1';if Choice=PA then signal BYE;if Choice="Y" then do;if weapon=wep1 then do;tr "\c2Macy's won't take that piece of junk!"
call delay(110);signal MENU1;end;if weapon=wep2 then do;tr "\c3Macy's pays you $1000!"
weapon=wep1;money=money+1000;call delay(110);signal MENU1;end;if weapon=wep3 then do
tr "\c3Macy's pays you $5000!";weapon=wep1;money=money+5000;call delay(110);signal MENU1
end;if weapon=wep4 then do;tr "\c3Macy's pays you $12500!";weapon=wep1;money=money+12500
call delay(110);signal MENU1;end;if weapon=wep5 then do;tr "\c3Macy's pays you $20000!"
weapon=wep1;money=money+20000;call delay(110);signal MENU1;end;if weapon=wep6 then do
tr "\c3Macy's pays you $27500!";weapon=wep1;money=money+27500;call delay(110);signal MENU1
end;if weapon=wep7 then do;tr "\c3Macy's pays you $37500!";weapon=wep1;money=money+37500
call delay(110);signal MENU1;end;if weapon=wep8 then do;tr "\c3Macy's pays you $42500!"
weapon=wep1;money=money+42500;call delay(110);signal MENU1;end;if weapon=wep9 then do
tr "\c3Macy's pays you $50000!";weapon=wep1;money=money+50000;call delay(110);signal MENU1
end;if weapon=wep10 then do;tr "\c3Macy's pays you $100000!";weapon=wep1;money=money+100000
call delay(110);signal MENU1;end;if weapon=wep11 then do;tr "\c3Macy's pays you $210000!"
weapon=wep1;money=money+210000;call delay(110);signal MENU1;end;if weapon=wep12 then do
tr "\c3Macy's pays you $375000!";weapon=wep1;money=money+375000;call delay(110);signal MENU1
end;end;signal MENU1
SELLARMOR:
tr "\n1\c4 Macy's will take your vehicle for half price.\c1";ss "\n1\cfAre You Sure (y/N)? \c1";getchar;if nocarrier() then signal bye
Choice=result;tr ' ';if Choice=PA then signal BYE;if Choice="Y" then do;if armor=arm1 then do;tr "\c2Macy's won't take that piece of junk!"
call delay(110);signal MENU1;end;if armor=arm2 then do;tr "\c3Macy's pays you $1000!"
armor=arm1;money=money+1000;call delay(110);signal MENU1;end;if armor=arm3 then do
tr "\c3Macy's pays you $5000!";armor=arm1;money=money+5000;call delay(110);signal MENU1
end;if armor=arm4 then do;tr "\c3Macy's pays you $12500!";armor=arm1;money=money+12500
call delay(110);signal MENU1;end;if armor=arm5 then do;tr "\c3Macy's pays you $20000!"
armor=arm1;money=money+20000;call delay(110);signal MENU1;end;if armor=arm6 then do
tr "\c3Macy's pays you $27500!";armor=arm1;money=money+27500;call delay(110);signal MENU1
end;if armor=arm7 then do;tr "\c3Macy's pays you $37500!";armor=arm1;money=money+37500
call delay(110);signal MENU1;end;if armor=arm8 then do;tr "\c3Macy's pays you $42500!"
armor=arm1;money=money+42500;call delay(110);signal MENU1;end;if armor=arm9 then do
tr "\c3Macy's pays you $50000!";armor=arm1;money=money+50000;call delay(110);signal MENU1
end;if armor=arm10 then do;tr "\c3Macy's pays you $100000!";armor=arm1;money=money+100000
call delay(110);signal MENU1;end;if armor=arm11 then do;tr "\c3Macy's pays you $210000!"
armor=arm1;money=money+210000;call delay(110);signal MENU1;end;if armor=arm12 then do
tr "\c3Macy's pays you $375000!";armor=arm1;money=money+375000;call delay(110);signal MENU1
end;end;signal MENU1
ALREADYHAVE:
tr cls"\n1\c2 YOU ALREADY HAVE THAT WEAPON! \c1";call delay(150);signal BUYWEAPON
NOMONEY:
tr cls"\n1\c2 YOU DON'T HAVE ENOUGH MONEY TO BUY THAT WEAPON!";if money=0 then tr "\c4 --You don't have any money!"
call delay(150);signal BUYWEAPON
ALREADYHAVEA:
tr CLS "\n1\c2 YOU ALREADY HAVE THAT VEHICLE! \c1";call delay(150);signal BUYARMOR
NOMONEYA:
tr CLS "\n1\c2 YOU DON'T HAVE ENOUGH MONEY TO BUY THAT VEHICLE!";if money=0 then tr "\c4 --You don't have any money!"
call delay(150);signal BUYARMOR;
QUIT:
ss "\n1\c3Are you sure (\c5y\c3/\c2N\c3)? \c1";getchar;if nocarrier() then signal bye;Choice=result;if Choice=PA then signal BYE;if Choice="Y" then do;tr CLS
ss '\n1'POS17 CLL POS17 "Do you want to continue playing (Y/N)?";getchar;if nocarrier() then signal bye
ans=(result);if ans=PA then signal BYE;if ans='Y' then signal BEAN
if ans='N' then signal VEGAS;if ans ~='N'|ans ~='Y' then signal WHATTHEHELL
signal WHATTHEHELL
TPL:
Tl=Tl+1;if Tl=5 then call BROKEN;RETURN
DBL:
Dl=Dl+1;if Dl=8 then call BROKEN;RETURN
OUTTACASH:
TR CLS;TR " ";TR POS17 CLL POS17 "You ain't got no money left! Boy, you sure did a lousy job!"
TR " ";call delay(100);TR POS18 CLL POS18 "Well since you're outta cash, we'll help you outta here!"
signal VEGAS
BROKEN:
TR CLS;Tr " ";TR POS14 CLL POS14 "The Casino Manager wants to talk to you now!"
TR " ";call delay(100);TR POS15 CLL POS15 "It appears he isn't too happy with your Playing Skills!";call delay(100)
TR POS16 CLL POS16 "I'm afraid I will have to ask you to leave now, you won too much!";TR POS17 CLL POS17 "You Broke the Bank!! Try again later if you feel lucky....";TR " "
call delay(100);signal VEGAS
CRAPS:
if money<=0 then do;tr CLS;tr center("\n1\c2YOU NEED MONEY TO PLAY THIS GAME!\n1",78)
call delay(150);return;end;tr CLS" \z6\c3 Playing Craps \z0\c1\n1"
call MAIN;return
Main:
RollNum=0;RollOld=0;call Bet;call RollIt
return
Bet:
if turnsleft<1 then do;tr 'You have No turns left!';signal menu1;end;turnsleft=turnsleft-1;tr "\n1\c6 You have $\c3"money"\c6. Maximum bet is $\c35000\c6.\c1";qu "\c3 How much do you wish to bet \c6[\cfQ\c6]\c3 To Quit?:\c1"
TimeBet=result;if TimeBet=PA then signal BYE;if TimeBet="q"|TimeBet="Q" then do;turnsleft=turnsleft+1;signal VEGAS;end;if money<TimeBet then do;tr CLS
tr "\n1\c2 YOU DON'T HAVE ENOUGH MONEY TO BET THAT MUCH!\c1\n1"
call delay(150);call BET;return;end;if TimeBet=1 then Minutes="Dollar"
else Minutes="Dollars";if TimeBet<1 then call BET;if TimeBet>5000 then call BET
if TimeBet=""|TimeBet=" " then do;turnsleft=turnsleft+1;signal VEGAS;end;return
RollIt:
do forever;ss "\n1\c1Press [\c2RETURN\c1] To Roll...";qu ".";YesPlay=result
if YesPlay=PA then signal BYE;call Roller;end;return
